home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / falcon / a56v12st.lzh / a56 / examples / caltone.lis < prev    next >
Encoding:
File List  |  1994-09-02  |  6.5 KB  |  251 lines
  1.               ; Output a calibration tone using table lookup and interpolation.
  2.               ; 
  3.               ; written by Quinn Jensen (jensenq@qcj.icon.com)
  4.               ; ref: _Digital Sine-Wave Synthesis Using the DSP56001_,
  5.               ;       Motorola app note APR1/D rev 1
  6.               ;
  7.               
  8.               include "tdsg.a56"
  9.               
  10.               ;***************************************************************
  11.               ;
  12.               ;       sample rate computations
  13.               ;
  14.               ;***************************************************************
  15.               
  16. P:0076        dot
  17. X:0020                org     x:$20
  18.               
  19.               include "caltone.inc"
  20.               
  21. X:0020 000007 dphase  dc      dphase_h
  22. Y:0020                org     y:$20
  23. Y:0020 DD4415         dc      dphase_l
  24. X:0021                org     x:$21
  25. X:0021 000000 phase   dc      0
  26. 000100        sinetab equ     $100
  27.               
  28. P:0076                org     p:dot
  29.               ;
  30.               ; non-interrupt code
  31.               ;
  32.               
  33. P:0076        hf_init
  34. P:0076 0004FA         ori     #4,omr
  35. P:0077 00000C         rts
  36.               
  37. P:0078        eff1_on
  38. P:0078        eff1_off
  39. P:0078        eff2_on
  40. P:0078        eff2_off
  41. P:0078        eff3_on
  42. P:0078        eff3_off
  43. P:0078        eff4_on
  44. P:0078        eff4_off
  45. P:0078 00000C         rts
  46.               
  47.               ;
  48.               ; fs = 32.552083 kHz
  49.               ;
  50.               
  51. P:0079        hf_comp
  52. P:0079 0D0066         jsr     <saveregs
  53.               
  54.               
  55.               
  56. P:007A 48A100         move            l:<phase,a
  57. P:007B 43A000         move            l:<dphase,y
  58. P:007C 20CF00         move            y0,b
  59. P:007D 20002B         lsr     b
  60. P:007E 21A500         move            b1,x1           ;x1 = frac
  61. P:007F 200030         add     y,a
  62. P:0080 47F400         move            #>$0000FF,y1
  63. P:0081 0000FF
  64. P:0082 200076         and     y1,a
  65. P:0083 482100         move            a,l:<phase
  66. P:0084 219800         move            a1,n0
  67. P:0085 60F400         move            #sinetab,r0
  68. P:0086 000100
  69. P:0087 05FFA0         movec           #$FF,m0
  70. P:0088 000000         nop
  71.               
  72. P:0089 4EE800         move            y:(r0+n0),y0
  73. P:008A 20CE00         move            y0,a
  74.               
  75.               
  76. P:008B 21C600         move            a,y0
  77. P:008C 47F400         move            #ampl,y1
  78. P:008D 16C311
  79. P:008E 2000B1         mpyr    y0,y1,a
  80.               
  81. P:008F 560400         move            a,x:<out_l
  82. P:0090 560500         move            a,x:<out_r
  83.               
  84. P:0091        bypass
  85. P:0091 0D006F         jsr     <restregs
  86. P:0092 00000C         rts
  87.               
  88.                       end
  89.  
  90. Summary of psect usage
  91.  
  92.                  section seg base last top      used       avail    total
  93. -------------------------------------------------------------------------
  94.  
  95.  
  96. Symbol Table
  97. -------------------------------------
  98.          ssi_int 000061
  99.             ssix 000010
  100.         eff4_off 000078
  101.          eff4_on 000078
  102.         eff3_off 000078
  103.          eff3_on 000078
  104.         eff2_off 000078
  105.          eff2_on 000078
  106.         eff1_off 000078
  107.          eff1_on 000078
  108.      init_stereo 000059
  109.            start 000040
  110.            in_rs 000003
  111.            in_ls 000002
  112.             in_r 000001
  113.             in_l 000000
  114.              dot 000076
  115.             ampl 0.1778279000
  116.         mainloop 000060
  117.          hf_comp 000079
  118.          hf_init 000076
  119.         saveregs 000066
  120.            savey 00000B
  121.            savex 00000A
  122.           saveb2 000009
  123.          saveb10 000008
  124.           savea2 000007
  125.          savea10 000006
  126.           dphase 000020
  127.         dphase_h 000007
  128.         dphase_l DD4415
  129.         restregs 00006F
  130.            phase 000021
  131.          sinetab 000100
  132.            out_r 000005
  133.            out_l 000004
  134.           bypass 000091
  135.           m_scl1 00000F
  136.           m_scl0 00000E
  137.            m_scl 00C000
  138.           m_ssl1 00000D
  139.           m_ssl0 00000C
  140.            m_ssl 003000
  141.           m_hpl1 00000B
  142.           m_hpl0 00000A
  143.            m_hpl 000C00
  144.           m_ibl2 000005
  145.           m_ibl1 000004
  146.           m_ibl0 000003
  147.            m_ibl 000038
  148.           m_ial2 000002
  149.           m_ial1 000001
  150.           m_ial0 000000
  151.            m_ial 000007
  152.            m_ipr 00FFFF
  153.            m_rdf 000007
  154.            m_tde 000006
  155.            m_roe 000005
  156.            m_tue 000004
  157.            m_rfs 000003
  158.            m_tfs 000002
  159.            m_if1 000001
  160.            m_if0 000000
  161.             m_if 000002
  162.           m_srie 00000F
  163.           m_stie 00000E
  164.            m_sre 00000D
  165.            m_ste 00000C
  166.            m_mod 00000B
  167.            m_gck 00000A
  168.            m_syn 000009
  169.            m_fsl 000008
  170.           m_sckd 000005
  171.           m_scd2 000004
  172.           m_scd1 000003
  173.           m_scd0 000002
  174.            m_scd 00001C
  175.            m_of1 000001
  176.            m_of0 000000
  177.             m_of 000003
  178.            m_psr 00000F
  179.            m_wl1 00000E
  180.            m_wl0 00000D
  181.             m_wl 006000
  182.             m_dc 001F00
  183.             m_pm 0000FF
  184.            m_tsr 00FFEE
  185.             m_sr 00FFEE
  186.            m_crb 00FFED
  187.            m_cra 00FFEC
  188.             m_tx 00FFEF
  189.             m_rx 00FFEF
  190.            m_tcm 00000F
  191.            m_rcm 00000E
  192.            m_scp 00000D
  193.            m_cod 00000C
  194.             m_cd 000FFF
  195.             m_r8 000007
  196.             m_fe 000006
  197.             m_pe 000005
  198.             m_or 000004
  199.           m_idle 000003
  200.           m_rdrf 000002
  201.           m_tdre 000001
  202.           m_trne 000000
  203.           m_tmie 00000D
  204.            m_tie 00000C
  205.            m_rie 00000B
  206.           m_ilie 00000A
  207.             m_te 000009
  208.             m_re 000008
  209.           m_woms 000007
  210.            m_rwi 000006
  211.           m_wake 000005
  212.            m_sbk 000004
  213.           m_wds2 000002
  214.           m_wds1 000001
  215.           m_wds0 000000
  216.            m_wds 000003
  217.           m_sccr 00FFF2
  218.            m_ssr 00FFF1
  219.            m_scr 00FFF0
  220.           m_stxa 00FFF3
  221.           m_stxh 00FFF6
  222.           m_stxm 00FFF5
  223.           m_stxl 00FFF4
  224.           m_srxh 00FFF6
  225.           m_srxm 00FFF5
  226.           m_srxl 00FFF4
  227.            m_dma 000007
  228.            m_hf1 000004
  229.            m_hf0 000003
  230.             m_hf 000018
  231.            m_hcp 000002
  232.           m_htde 000001
  233.           m_hrdf 000000
  234.            m_hf3 000004
  235.            m_hf2 000003
  236.           m_hcie 000002
  237.           m_htie 000001
  238.           m_hrie 000000
  239.            m_htx 00FFEB
  240.            m_hrx 00FFEB
  241.            m_hsr 00FFE9
  242.            m_hcr 00FFE8
  243.            m_pcd 00FFE5
  244.          m_pcddr 00FFE3
  245.            m_pcc 00FFE1
  246.            m_pbd 00FFE4
  247.          m_pbddr 00FFE2
  248.            m_pbc 00FFE0
  249.            m_bcr 00FFFE
  250. errors=0
  251.